home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b5.d64 / type'of'dir.l < prev    next >
Text File  |  2007-02-28  |  393b  |  14 lines
  1. 9000 //
  2. 9010 PROC TYPE'OF'DIR(REF LABELS,REF NUM'COLS,REF NUM'ROWS) CLOSED
  3. 9020 DIM REPLY$ OF 1
  4. 9030 INPUT "═ULTI-COLUMN ─IRECTORY (Y/N): ": REPLY$
  5. 9040 IF REPLY$ IN "┘Y" THEN
  6. 9050 LABELS:=TRUE
  7. 9060 INPUT "HOW MANY COLUMNS WIDE:2¥": NUM'COLS
  8. 9070 INPUT "HOW MANY LINES PER PAGE:8¥": NUM'ROWS
  9. 9080 ELSE 
  10. 9090 LABELS:=FALSE; NUM'COLS:=1; NUM'ROWS:=0
  11. 9100 ENDIF 
  12. 9110 ENDPROC TYPE'OF'DIR
  13. 9120 //
  14.